home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 June / Ahoy_Magazine_87-06_1987_Double_L.d64 / Crafty Comp 2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  343b  |  12 lines
  1. 0 rem << cd42-11 >>
  2. 1 rem ==================================
  3. 2 rem    commodares problem #38-2 :
  4. 3 print"[147]crafty comparison "
  5. 4 rem    solution by
  6. 5 rem    paul vaughan
  7. 6 rem ======   c64 only   ==============
  8. 9 input n(2)
  9. 10 inputn:n(1+sgn(n-n(2)))=n:print"[145]"n"[157]  largest so far ="n(2):n=10+peek(646)
  10. 11 poke 785,188:poke 786,168:poke n,peek(n):n=usr(0)
  11. 12 print"done"
  12.